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1.0  Introduction 

Once  a  new  PCM  encoder  has  been  built,  a  normal  requirement  is  environ¬ 
mental  testing.  The  automated  test  described  here  will  check  the  encoder's: 

1.  Prime  data  and  subcom  data  inputs  for  wiring  errors  during  con¬ 
struction. 

2.  Ability  to  convert  analog  to  digital  data  within  given  specifi¬ 
cations  (normally  ±  ^  LSB) . 

3.  Characteristics  during  temperature  cycles  (0°  to  65°C) .  (There 
may  be  drift  in  the  A/D  in  its  full  scale  or  zero  offset,  or  most  of  all, 
an  IC  failure.  If  an  IC  failure  occurs,  the  chip  is  replaced  and  the  en¬ 
tire  test  repeated.) 

4.  Repeatability  of  sampled  data. 

5.  Overall  environmental  noise  level. 

In  the  block  diagram  (Figure  1) ,  the  IRBS  encoder  is  used  as  an  example  for 
the  test  set  up.  The  only  things  that  vary  from  testing  one  encoder  to  another 
are  the  "multiplex  breadboard"  and  the  software  controlling  the  test. 

The  "multiplex  breadboard"  functions  as  a  switching  circuit,  controlling 
a  precision  analog  input  voltage,  set  by  a  null-reading  voltmeter.  The  switching 
circuit  applies  this  voltage  as  an  input  signal  to  each  encoder  input  line  in  a 
predetermined  sequence,  controlled  by  the  KIM  microcomputer  through  a  6-bit 
port  on  the  KIM  interface  box.  (This  portion  of  the  test  set-up  is  a  "bread¬ 
board"  because  the  analog  data  inputs  vary  from  encoder  to  encoder.) 

The  output  of  the  encoder  is  fed  into  an  OSU  PCM  decommutator ,  which  pro¬ 
vides  digital  output  in  parallel  words  and  their  associated  addresses.  These 
are  monitored  by  the  KIM  through  its  interface  box.  Interaction  between  opera¬ 
tor  and  computer  is  done  through  the  CRT  terminal.  Once  the  test  begins,  it  may 
be  monitored  on  the  CRT  and  a  hard  copy  is  provided  by  the  printer. 

A  DAC  may  be  used  to  monitor  particular  PCM  words  during  the  test. 

2.0  The  Multiplex  Breadboard 

The  FIRSSE  breadboard  provides  an  example  of  a  two  link  system  and  its 
"breadboard".  HI-1818A  chips  are  used  here  because  of  their  low  "on"  resis¬ 
tance  (approximately  200  ohms)  and  high  isolation  between  channels  (80  db) .  In 
Figure  2,  the  analog  voltage  is  fed  to  all  switching  chips  (IC  1-12)  and  the 
computer  controls  their  address  lines.  These  IC's  are  enabled  by  signals  from 
two  3-to  8-line  coders  (IC's  13  &  14)  and  the  "link  enable"  switch. 
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To  help  eliminate  noise  generated  by  the  computer,  it  is  essential  to  use 
bypass  capacitors  on  all  power  supplies  and  shielded  wire  for  the  address  lines 
from  the  computer. 

The  lowest  address  from  the  computer  is  00.  This  should  correspond  to  the 
first  minor  frame  word  to  be  tested  (in  the  FIRSSE  encoder  this  is  word  03  on 
link  1  and  word  08  on  link  2) .  Then  the  address  to  the  switching  chips  (from 
the  computer)  should  increase  sequentially  in  accord  with  the  main  frame  word 
numbers  on  the  encoder  inputs.  (Any  alteration  in  this  sequence  creates  more 
software  changes.) 

3.0  KIM  Interface  Box 

This  unit  enables  the  computer  to  read  the  parallel  data  from  the  decom 
and  to  control  the  address  lines  to  the  "multiplex  breadboard"  which  switches 
the  input  signal.  (Schematic  in  Figure  3). 

The  word  clock  period  from  the  decom  is  lengthened  to  1.5u  sec  by  the 
IC118  one-shot  multivibrator.  This  is  read  by  the  computer  through  bit  7  of 
the  74LS253  multiplexers  at  address  0403. 

The  word  address  lines  are  then  read  at  address  0400  through  the  same 
multiplexers.  Once  read,  this  address  enables  the  data  latches  and  the  parallel 
data  is  latched  in  at  addresses  0401  and  0402.  This  interface  enables  the  com¬ 
puter  to  sample  data  at  word  rates  up  to  130  KHz. 

Parallel  data  is  also  available  at  the  buffered  decom  output  for  expansion 
to  other  devices.  The  parallel  data  and  word  address  lines  are  buffered. 

4.0  Equipment  for  Test  Setup. 

When  an  automated  temperature  test  is  performed  at  the  Oklahoma  State 
University  Electronics  Lab  the  following  equipment  is  used: 

Precision  voltage  source  -  EDC  (RF-6146) 

Precision  voltmeter  -  Calibration  Standards  Corporation,  Model 
DC-100A  (RF-6145) 

Appropriate  "multiplex  breadboard"  for  input  signal  switching. 

Any  OSU  PCM  decoder  (Models  D90RP01,  D90RP21,  or  D90RF01) 

OSU  KIM  computer 
Printer  -  Anadex  DP-8000 
CRT  terminal  -  Hazeline  1500 
KIM  interface  box 
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Monitor  DAC  (optional):  OSU  8-channel  or  DAC  processor 

Power  supplies  ±15v  and  +28v 

Encoder  to  be  tested 

OSU  temperature  test  chamber 

5.0  Software 

The  software  used  to  test  an  encoder  is  a  combination  of  machine  code  and 
BASIC  programs.  Together,  these  simplify  obtaining  data  from  the  PCM  decommu¬ 
tator.  The  machine  code  program  is  a  general  purpose  routine  that  may  be  used 
for  testing  any  PCM  encoder.  It  requires  the  BASIC  program  to  pass  the  output 
word  address  (for  subframe  data,  to  pass  both  the  word  and  frame  address)  be¬ 
fore  calling  it. 

The  BASIC  program  controls  the  format  of  the  words  to  be  sampled,  operator 
data  entry,  and  the  data  to  the  printer.  This  program  is  modified  for  each 
encoder  to  be  tested. 

5.1  Machine  Code  Program  ZIPMC 

There  are  two  parts  to  this  program:  ZIPA  for  mainframe  data  (begins  at 
address  7000)  and  ZIPAS  for  subcom  data  (begins  at  address  7100) .  These  rou¬ 
tines  are  identical,  except  the  subcom  routine  monitors  the  subframe  identifi¬ 
cation  to  obtain  the  subcom  data.  For  the  SPREAD  F  encoder,  the  program  SPDMC 
uses  SPRDA  instead  of  ZIPAS  for  the  subcom  data  selection. 

5.1.1  Subroutine  for  Mainframe  Data 

This  subroutine  samples  the  specified  word,  storing  binary  bit  patterns 
in  array  TABLE  (Figure  4),  counting  the  number  of  occurrences  of  each  pattern. 
Each  different  binary  pattern  is  retained  in  TABLE  at  a  new  cell  address.  If 
more  than  eight  patterns  are  obtained,  the  data  word  is  considered  too  noisy  to 
test  and  the  program  terminates.  Otherwise,  the  program  terminates  with  10,000 
samples  of  the  specified  word.  A  flow  chart  of  this  routine  is  in  Figure  5. 

The  total  number  of  samples  may  be  changed  at  address  7010  (high  byte)  and 
7015  (low  byte)  and  must  be  in  hexidecimal  numbers.  For  this  routine,  the  num¬ 
ber  of  samples  may  vary  from  1  to  65,536  (2*^). 
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Binary  Data 

Number  of  Samples 

Cell  No. 

Address 

High 

Low 

High 

Low 

I 

7FC0 

2 

7FC4 

3 

7FC8 

4 

7FCC 

5 

7FD0 

6 

7FD4 

7 

7FD8 

8 

7FDC 

1 

Figure  4.  TABLE  FOR  ZIPMC 

5.1.2  Variables  used  in  ZIPMC 

X  -  Pointer  to  each  address  in  TABLE. 

Y  -  Cell  pointer  for  next  available  address  in  TABLE  to  store  binary  data. 

A  -  Obtains  data  from  the  interface  box.  The  HEX  addresses  are: 

0400  -  decom  word  addresses. 

0401  -  decom  data,  bits  1-8  (MSBs) ,  high  binary  data  byte. 

0402  -  decom  data,  bits  9-16  (LSBs) ,  low  binary  data  byte. 

0403  -  decom  word  clock,  positive  pulse  in  bit  7. 

TABLE  -  An  array  of  32  memory  locations  (addresses  7FC0  through  7FDF  initialized 
to  zero),  divided  into  8  cells  of  4  locations  each.  The  cells  contain  the 
decom  data  (high  and  low  bytes)  obtained  from  the  accumulator  (A) ,  and  the 
number  of  samples  (high  and  low  bytes)  which  is  incremented  when  a  sample 
is  taken. 

7FB0  -  Up  counter  for  low  byte  of  number  of  the  total  samples.  When  equal  to 
low  byte  of  samples,  this  location  is  set  to  zero. 

7FB1  -  Location  to  save  X  so  that  X  may  be  compared  to  Y. 

7FB2,  7FB3  -  Low  and  high  bytes  of  the  sample  counter.  Initialized  to  10,000 
(may  be  initialized  to  any  number  of  samples),  the  low  byte  is  compared  to 
7FB0  with  each  sample  taken.  When  equal,  the  high  address  (7FB3)  is  de¬ 
cremented  (if  equal  to  zero  the  program  terminates)  and  the  low  byte  is  set 
to  FF. 

5.1.3  Subroutine  for  Subcoin  Data 

The  algorithm,  flow  chart,  and  variables  are  the  same  for  this  subroutine 
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as  for  the  mainframe  subroutine,  except  this  routine  obtains  the  subframe 
identification  before  searching  for  the  decom  word  address. 

The  routine  assumes  the  ID  is  in  word  one,  but  may  be  modified  by  changing 
address  712E  (must  use  a  hexidecimal  number) .  The  total  number  of  samples  is 
100  (64  Hex)  and  may  be  changed  at  addresses  7115  (low  byte)  and  7110  (high  byte) 
The  program  scans  the  subframe  ID,  shifts  it  right  2  bits  and  compares  this  to 
the  frame  number  that  BASIC  stores  at  714B.  If  an  equal  comparison,  the  pro¬ 
grams  scans  for  the  decom  word  address  (BASIC  stores  this  at  714F) ,  if  not  equal; 
it  continues  to  look  for  the  correct  ID. 

For  the  various  encoders  that  may  be  tested,  the  subframe  ID  may  have  to 
be  shifted  or  bits  may  have  to  be  blanked  to  obtain  an  ID  in  a  format  that  can 
be  compared  to  the  desired  frame  number.  The  SPREAD  F  encoder  subcom  algorithm 
is  an  example  of  software  shifting  the  ID  so  that  a  comparison  may  be  made. 

This  encoder's  ID  (word  one)  is  in  the  most  significant  bits  and  is  shifted 
right  four  bits. 

5.2  BASIC  Control  Program 

This  routine  provides  interaction  between  the  operator  and  computer,  passes 
the  word  address  and  calls  the  machine  code  program,  and  then  prints  the  results 
after  the  return  from  the  call.  This  routine  is  not  general  purpose  and  must  be 
modified  for  each  encoder  to  be  tested.  Software  listings  for  the  ZIP,  IRBS, 
FIRSSE,  and  SPREAD  F  encoders  are  in  Appendix  B. 

The  BASIC  control  program  for  ZIP  is  an  example  that  will  be  discussed;  the 
other  programs  in  Appendix  B  are  similar.  The  mainframe  and  subframe  word  ad¬ 
dresses  used  are  the  main  differences  between  the  control  programs. 

For  mainframe  data,  the  ZIPB5  program  samples  words  12  through  43  (10,000 
samples  of  each  word)  and  samples  selected  subcom  data  from  words  10  and  11  (100 
samples  of  each  subframe  selected).  In  the  program  the  variables  are  initialized 
data  is  obtained  from  the  operator,  the  machine  code  program  is  executed,  and 
the  data  for  each  word  sampled  is  printed. 

5.3.1  Variables  used  in  ZIPB5.  (Program  in  Appendix  B) 

Numbers  following  variable  are  where  variables  initially  occur.  Section 
to  control  mainframe  data  (statements  29-115) : 

DT$  -  29  Date  of  printout;  should  be  manually  changed  to  agree  with  current 

date.  The  date  is  printed  in  the  title. 
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N  -  45  An  array  that  contains  selected  subframe  numbers.  The  dimension  is 

initialized  to  the  total  number  of  selected  subframes.  The  selected  sub- 
frames  are  read  from  the  data  statements  by  the  FOR/NEXT  loop  (47,  48,  50). 

ST, ED  -  56  Starting  and  ending  mainframe  word  addresses. 

A  -  71  Current  word  addresses. 

HX  -  80  Used  in  conversion  of  a  BCD  number  to  hexidecimal.  In  statement  100, 

HX  is  the  converted  number. 

WA  -  90  An  intermediate  variable  used  in  conversion  of  a  BCD  number  to  hexi¬ 

decimal. 

8256,  8257  -  60,  65  Address  locations  to  initialize  the  machine  code  subroutine 

starting  address.  8256  is  the  low  address  (0)  and  8257  is  the  high  address 
(112  dec  is  70  hex). 

2048  -  72  Address  location  of  KIM  INTERFACE  box  output  port.  (2048  dec  is 

0800  hex). 

28712  -  110  Address  in  machine  code  subroutine  to  store  the  current  word  ad¬ 

dress  (28712  dec  is  7000  hex). 

Subroutine  to  call  machine  code  program  and  print  results  (statements  119-340): 

J,X1  -  119,120  The  USR  instruction  requires  this  format  but  the  variables  are 

not  used. 

M  -  130  TABLE  index.  Initialized  to  32704  dec  (7FC0  hex). 

SM  -  140  Low  byte  of  the  number  of  samples  in  TABLE. 

SP  -  153  High  byte  of  the  number  of  samples  in  TABLE. 

B$  -  170  String  value  to  print  the  binary  number  in  terms  of  l's  and  0's. 

DA  -  190  Obtains  high  and  low  bytes  of  the  binary  data  to  convert  the  data 

to  a  string  value  (B$). 

X  -  195  Decimal  value  of  each  bit  of  the  binary  data. 

FL  -  270  Flag  for  loop  indicator. 

D1  -  290  High  binary  data  byte. 

D2  -  300  Low  binary  data  byte. 

V  -  310  Calculated  voltage  from  binary  data. 

V0  -  311  Intermediate  value  for  calculated  voltage. 

VD  -  315  Voltage  difference  between  the  calculated  and  input  voltages  (error 

voltage) . 

Section  to  control  subcom  data  (statements  350-610) : 


WD  -  405  Subcom  word  number. 

ST, ED  -  410  Starting  and  ending  loop  values.  Used  to  obtain  a  value  from 

array  N. 

K  -  525  Current  pointer  to  value  in  array  N. 

FR  -  530  Current  subframe  number. 

29007  -  520  Address  location  to  initialize  the  word  address  in  the  machine 

code  program. 

29003  -  570  Address  location  to  store  subframe  number  in  machine  code  sub¬ 

routine. 

Other  variables  used  in  this  section  are  similar  to  variables  for  the  mainframe. 

The  list  of  selected  subframe  words  is  in  the  data  statements  1000,1010. 
The  first  data  statement  is  for  subcom  word  10  and  the  second  for  subcom  word 
11. 

Subroutine  to  obtain  information  from  operator  and  to  print  the  Heading 
(1890-2100): 

TI$  -  2000  Character  string  that  is  part  of  the  title. 

LI  -  2007  Link  number. 

TP$  -  2010  Temperature  of  chamber.  May  be  in  degrees  F  or  C. 

VI  -  2020  Input  voltage  (value  from  null  reading  volt  meter). 

TS$  -  2030  Used  to  move  the  output  to  the  printer  5  spaces  to  the  right. 

T$  -  2040  Character  string  that  is  part  of  the  title. 

DL  -  2080  Kim  interface  output  port  variable.  The  port  is  assigned  this 

value  in  statement  72. 

6.0  Running  the  Temperature  Test 

To  run  the  test  the  computer  must  be  initialized  (refer  to  KIM  initiali¬ 
zation  in  Appendix  A),  the  equipment  properly  configured,  and  the  PCM  dpcommu- 
tator  placed  in  the  "all  words"  mode. 

The  operator  must  select  an  input  voltage  on  the  precision  voltage  source 
and  null  the  voltmeter.  If  the  computer  has  been  initialized,  the  operator 
should  type  in  the  appropriate  date  (set  DT$  ■  "date").  Refer  to  the  software 
listing  for  the  statement  numbers  and  format  for  changing  DT$.  (In  this  mode 
any  line  typed  in  must  be  followed  by  the  return  key  to  enter  this  information.) 

When  the  temperature  chamber  has  reached  the  test  temperature  and  remained 
there  for  30  minutes  (refer  to"lRBS  Acceptance  Test  Plan  PCM  Encoder  Thermal 
Cycling" for  procedures  concerning  thermal  cycling),  the  operator  may  type  in: 
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RUN.  The  computer  will  print  out  the  title  and  date,  and  then  asks  the  operator 
the  link,  temperature  and  the  input  voltage  from  the  precision  voltmeter.  Refer 
to  Figures  6  and  7  for  example  printouts. 

The  computer  will  then  print  out  the  word  number,  its  binary  value,  its 
calculated  voltage,  the  difference  (error)  between  the  calculated  and  the  input 
voltage,  and  the  number  of  samples  at  each  voltage  level.  Up  to  10,000  total 
samples  are  taken  for  each  word  (or  only  eight  different  voltage  levels,  which¬ 
ever  comes  first) . 

If  the  subcom  data  is  to  be  printed  out  (as  in  ZIP,  SPREAD  F,  and  IRBS) , 
it  follows  the  same  procedures  as  the  main  frame  data  except  the  number  of  samples 
per  word  is  reduced  to  100  and  the  subcom  word  and  frame  numbers  are  written  into 
the  software. 

7 . 0  Conclusions 

The  automated  testing  of  PCM  encoders  has  greatly  improved  the  speed  and 
quality  of  testing  each  unit.  It  allows  more  information  to  be  gathered  about 
an  encoder's  characteristics  and  performance. 

Data  was  repeatable  at  given  voltage  levels.  Even  though  the  test  set  up 
actually  introduced  digital  noise  into  the  encoder  during  the  test,  the  test 
is  still  considered  valid  because  no  more  than  +  1  bit  levels  were  observed  (in 
most  of  the  data  only  +  \  bit  was  observed). 
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FIRSSE  TEMPERATURE  CHECKS  4/10/81 


LINK?  2 

TEMPERATURE?  28  C 


INPUT 

VOLTAGE?  ! 

>.0105 

WORD* 

BINARY 

VALUE 

CALC  VOLTAGE 

ERROR 

SAMPLES 

8 

11000000 

00000000 

5 

-.0105 

9256 

a 

11000000 

00010000 

5.00488 

-5.62E-03 

738 

a 

10111111 

11110000 

4.99511 

-.01539 

6 

9 

10111111 

11010000 

4.98535 

-.02515 

7410 

9 

10111111 

1 1 100000 

4. 99CC3 

-.02027 

2585 

9 

10111111 

11000000 

4.  98046 

- . 03004 

5 

10 

10111111 

11010000 

4.98535 

-.02515 

8394 

10 

10111111 

1 1000000 

4.98046 

- . 03004 

1606 

11 

10111111 

11100000 

i.  99023 

- . 02027 

6165 

11 

10111111 

11110000 

4.99511 

-.01539 

3835 

12 

10111111 

11100000 

4.99023 

- . 02027 

9912 

12 

10111111 

11010000 

4.98535 

-.02515 

63 

12 

10111111 

11110000 

4.99511 

-.01539 

25 

13 

10111111 

11100000 

4.99023 

-.02027 

8484 

13 

10111111 

11010000 

4.98535 

-.02515 

1516 

14 

10111111 

11010000 

4.98535 

-.02515 

9335 

14 

10111111 

11100000 

4.99023 

-.02027 

660 

14 

10111111 

11000000 

4.98046 

- . 03004 

5 

15 

10111111 

11100000 

4.99023 

-.02027 

7735 

15 

10111111 

11110000 

4.9951 1 

-.01539 

2265 

16 

10111111 

11100000 

4.99023 

-.02027 

9708 

16 

10111111 

11110000 

4.99511 

-.01539 

269 

16 

10111111 

11010000 

4.98535 

-.02515 

23 

17 

10111111 

11110000 

4.99511 

-.01539 

613 

17 

10111111 

11100000 

4.99023 

-.02027 

9385 

17 

loiimi 

11010000 

4.98535 

-.02515 

2 

18 

10111111 

11100000 

4.99023 

-.02027 

7554 

18 

10111111 

11010000 

4.98535 

-.02515 

2446 

19 

10111111 

11110000 

4.99511 

-.01539 

9696 

19 

11000000 

00000000 

5 

-.0105 

300 

19 

10111111 

11100000 

4.99023 

-.02027 

4 

Flflur#  «.  EXAMPLE  PRINTOUT  OF  TEMPERATURE  TEST 


SPREAD  F  ENCODER  TEMPERATURE  CHECKS  7/10/81 


TEMPERATURE?  OC 
INPUT  VOLTAGE?  4.499 


WORD* 

BINARY  VALUE 

CALC  VOLTAGE 

ERROR 

SAMPLES 

3 

11100111 

4. 51171 

.0127 

984 

3 

11100110 

4.49218 

-6.83E-03 

5 

3 

11101000 

4.53125 

.03225 

11 

4 

11100111 

4.51171 

.0127 

985 

4 

11101000 

4. 53125 

. 03225 

13 

4 

11100110 

4.49218 

-6.83E-03 

2 

5 

11100111 

4. 51171 

.03  27 

992 

5 

11100110 

4.49218 

-&.B3E-03 

> 

5 

5 

11101000 

4. 53125 

, 03225 

3 

6 

11100111 

4. 51171 

.0127 

987 

6 

11101000 

4.53125 

.03225 

11 

6 

11100110 

4.49218 

-&.83E-03 

2 

7 

11 1001 11 

4.51171 

.0127 

984 

7 

11101000 

4. 53125 

. 03225 

14 

7 

11100110 

4.49218 

-6.83E-03 

2 

************  SUBFRAME 

DATA  ******  ****** 

WORD  * 

2 

TEMPERATURE  OC 

• 

INPUT 

VOLTAGE  4.499 

FRM» 

BINARY  VALUE 

CALC  VOLTAGE 

ERROR 

SAMPLES 

0 

11100111 

4. 51171 

.0127 

100 

1 

11100111 

4.51171 

.0127 

100 

2 

11100111 

4. 51171 

.0127 

100 

3 

11100111 

4. 51171 

.0127 

100 

4 

11100111 

4.  51171 

.0127 

100 

5 

11100111 

4. 51171 

.0127 

100 

6 

11100111 

4.51171 

.0127 

100 

Plgur*  7.  EXAMPLE  PRINTOUT  OF  TEMPERATURE  TEST 


APPENDIX  A 


1. 


2. 


3. 

4. 

5. 

6. 

7. 

8. 

9. 

10. 

11. 

12. 

13. 

14. 

15. 

16. 

17. 

18. 

19. 

20. 
21. 
22. 


KIM  INITIALIZATION  FOR  TEMPERATURE  TEST 


Turn  on  Hazeltine  keyboard. 

Turn  on  KIM  computer. 

Switch  positions  for  computer 

A.  1  MHz 

B.  Halt  (Down) 

C.  Normal 

D.  Reset  (Momentarily  lift  up) 

E.  Printer  interface  set  to  inhibit 


Hit  return  on  keyboard 

A.  Computer  should  respond  with  "KIM  " 
Type  in:  D400  FEE6  FF 

Hit  space  bar: 

A.  Computer  responds  with  D400  D8 
Hit  "G"  key 


KIM  responds  with  "LMON" 

"S" 

Type  in:  MDC00,  DCD0,  0000 
Hit  return 

Hit  return  again  (to  get  out  of  LMON  mode) 
A.  KIM  responds  with  "D400  D8" 
Hit  space  bar 

A.  KIM  responds  with  "0000  20" 
Hit  "G"  key 


Put  in  Disk  #1B  (FOPS) 

KIM  responds  "FODS" 

Take  out  Disk  It  IB 

Type  in  plus  (+)  sign  (starts  disk  motor) 
Put  in  Disk  #10B 


KIM  responds  It 

Type  in  the  appropriate  machine  code  program  from  Table  1 
LOD  %ZIPMC  (Hit  Return) 


KIM  responds  If 
Take  out  the  Disk 
Type  in  +  sign. 


Example 


23.  Put  in  Disk  # IB,  Basic.  (For  use  with  Anadex  printer) 

24.  KIM  responds  "//" 

23.  Type  in:  RUN  %BASP 

26.  Hit  Return 

27.  KIM  responds:  Type  in: 

#  Of  Lines/Page  0  (Hit  Return) 

Memory  Size  28600  (Hit  Return) 

Terminal  Width  80  (Hit  Return) 

28.  Take  disk  out 

29.  Type  in:  Disk  I  (Hit  return)  (starts  disk  motor) 

30.  KIM  responds:  'OK" 

31.  Put  in  Disk  (Refer  to  Table  1  for  appropriate  program  from  Disk  10B.) 

32.  Type  in:  DISKL,  name 

33.  Hit  Return 

34.  KIM  should  respond  with  "OK" 

35.  Take  Disk  out 

36.  Type  in:  QUIT  (Hit  Return) 

37.  KIM  responds:  "#" 

38.  Hit  "ESC"  key  and  KIM  responds:  "0000  4C" 

39.  On  computer  front  panel  do  the  following: 

A.  Move  HALT  to  up  position 

B.  2  MHz 

C.  Move  HALT  to  down  position 

D.  Hit  RESET 

40.  Hit  return  key  on  keyboard 

41.  KIM  responds  with  "0000  4C" 

42.  Type  in:  17F2  (Space  Bar) 

43.  KIM  should  respond  17F2  0B 

44.  If  KIM  responds  17F2  0A  then  type  in:  0B.  (Make  sure  you  type  a  period 
after  0B).  This  enters  0B  into  location  17F2  to  set  the  baud  rate  between 
CRT  and  computer. 

45.  Hit  the  Space  Bar 

46.  Hit  "G"  key 

47.  KIM  should  respond  "OK." 

48.  Type  in:  RUN  (Hit  return  to  start  program.)  If  the  printer  is  to  be  used, 
set  printer  interface  switch  to  "HANDSHAKE". 
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TABLE  1 


Programs  are  on  Disk  10B. 


Encoder  under 
Test 

Program  Name 

Machine  Code 
Program 

ZIP 

ZIPB5 

ZIPMC 

IRBS 

IRBS4 

ZIPMC 

FIRSSE 

FIR I A  ' 

ZIPMC 

SPREAD  F 

SPRD4 

SPDMC 
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APPENDIX  B 


SOFTWARE  LISTINGS 

B.l  BASIC  PROGRAMS: 

B.I.l  ZIPB5 
B. 1.2  IRBS4 
B.1.3  FIR1A 
B. 1.4  SPRD4 

B.2  ASSEMBLER  PROGRAMS: 

B.2.1  ZIPA 
B.2. 2  ZIPAS 
B.2. 3  SPRDA 
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15  REM  ZIPB5 . ZIP-II  ENCODER  TEMPERATURE  TEST 

16  REM 

20  REM  THIS  PROGRAM  TAKES  10000  SAMPLES  OF  EACH  MAINFRAME  WORD 

21  REM  AND  100  SAMPLES  OF  EACH  SUBCOM  WORD.  WORDS  12  THRU  43 

22  REM  ARE  SAMPLED  FIRST  THEN  THE  SUBFRAME  WORDS. 

23  REM  THIS  ROUTINE  CALLS  THE  MACHINE  CODE  PROGRAM  "ZIPMC" 

24  REM  TO  OBTAIN  MAINFRAME  AND  SUBFRAME  DATA. 

25  REM 

28  PRINT 

29  DT* ="1/27/80" 

30  PRINT  TAB<22); "ZIP-II  TEMPERATURE  TEST  " % DT* 

35  PRINT  :  PRINT* 

40  PRINT 

43  REM . INITIALIZE  ARRAY  N  FOR  SUBFRAME  DATA . 

45  DIM  N<25)  *  REM  ...FOR  THESE  CHECKS.  25  SELECTED  SUBCOM 

46  REM  WORDS  WILL  BE  PRINTED. 

47  FOR  1=0  TO  24 

48  READ  N ( I ) 

50  NEXT  I 

55  GOSUB  2000  »  REM . GET  DATA  F  ROM  OPERATOR . 

56  ST=12  i  ED=43  s  REM . SET  STARTING  t,  ENDING  MF  WORD  w'S 

58  REM  ....INITIALIZE  STARTING  AD DR  FOR  ZIPMC 

59  REM  THIS  WILL  READ  MAINFRAME  DATA 

60  POKE  8256.0 
65  POKE  8257.112 

70  REM  . BEGIN  LOOP  FOR  MAINFRAME  DATA . 

71  FOR  A=ST  TO  ED 

72  POKE  2048. DL 

73  DL-DL+1 

80  MX- I NT (A/ 10) 

90  WA=A-(HX*10) 

100  HX=HX*16+WA 

110  POKE  28712. HX 

111  GOSUB  119 

112  PRINT  s  NEXT  A 
115  GOTO  380 


117  REM  . SUBROUTINE  TO  CALL  MACHINE  CODE  PROGRAM 

118  REM  AND  PRINT  RESULTS.  (STATEMENTS  119-340) 

119  J=0 


120  X1=USR< J) 

130  M=32704 
140  SM=PEEK<M+2) 

153  SP=PEEK(M+3) 

155  IF  SP+SM-0  THEN  RETURN 
160  FL*0 
1/0  B*=“ " 

190  DA-PEEK <M) 

195  X-128 

200  IF  X<=DA  THEN  230 
210  B*»B*+"0" 

220  GOTO  240 
230  B*-B*+" 1" 

235  DA-DA- X 
240  X-X/2 

250  IF  X  > « 5  THEN  GOTO  200 
260  DA-PEEK <M+1) 

270  FL-FL+1 
275  B*»B*+"  ” 

l ) 


280  IF  FL=1  THEN  GOTO  195 
290  D1=PEEK<M) 

300  D2=PEEK<M+1) 

310  V=  <  D1+D2/256) /12.  8 

311  VO*V 

312  SM=<SP*256)+SM 

313  V=INT< (VO- 10 >*100000)/ 100000 
315  VD=V-VI 

318  VD= I NT  <  VD#1 00000  > / 1 00000 

320  PRINT  TS$; A; TAB< 12) ?  TAB (34) *  V, TAB ( 50) »  VD) TAB (66) »  SM 

330  M=M+4 
340  GOTO  140 
345  REM 

350  REM  . ROUTINE  TO  OBTAIN  AND  PRINT  SUBCOM  DATA.... 

355  REM 
380  PRINT 
400  PRINT 

402  PRINT  TS<»  "**#*#***#*  *#  SUBFRAME  DATA  **♦•*#*******•• 

405  WD*10 

410  ST=0  >  ED=>15 

415  PRINT  t  PRINT 

420  PRINT  TS$» "LINK  ";LI 

435  PRINT  TS*! “WORD  «  ";WD 

436  PRINT  TS*5 "TEMPERATURE  "}TP* 

437  PRINT  TS*+" INPUT  VOLTAGE  "fVI 
440  PRINT 

450  R$="FRM»  BINARY  VALUE  CALC  VOLTAGE  ERROR 

460  PRINT  TS*+R*+Ti* 

478  POKE  8256.0 
480  POKE  8257.113 
490  HX*INT< WD/10) 

500  WA=WD-(HX*10) 

510  HX=HX*16+WA 
520  POKE  29007, HX 
525  FOR  K=ST  TO  ED 
530  FR=N <K> 

535  PRINT 

550  HX=INT(FR/10) 

555  WA=FR-<HX#10> 

560  HX  =  HX*16i-WA 
570  POKE  29003, HX 
575  A=FR 
580  GOSUB  119 
590  NEXT  K 

595  IF  K >24  THEN  END 
600  ST=16  :  ED=24 
610  WD=11,  GOTO  415 


900  REM 

910  REM  . LIST  OF  SUBFRAME  WORDS.  FIRST  DATA 

920  REM  STATEMENT  IS  FOR  SUBCOM  WORD  10.  THE 

930  REM  SECOND  IS  FOR  WORD  11. 

1000  DATA  0. 8,  13.  16.  24. 32, 37,  41, 48, 55, 56,64, 69, 72,80,85 
1010  DATA  16,24,32,40,60,68. 72,80,87 
1890  REM 

1900  REM  ....SUBROUTINE  TO  OBTAIN  L I NK ,  TEMPERATURE ,  6. 
1910  REM  INPUT  VOLTAGE  FROM  OPERATOR  AND  TO 

1920  REM  PRINT  DATA  HEADING. 

1930  REM 

2000  Ti**"  SAMPLES" 

2005  PRINT 


24 


2007  INPUT"  LINK" » LI 

2010  INPUT  “  TEMPERATURE" tTP* 

2020  INPUT  "  INPUT  VOLTAGE"; VI 

2030  TS*=»" 

2040  T*= "WORD#  BINARY  VALUE  CALF  VOLTAGE  ERROR 

2050  PRINT 

2060  PRINT  TS$+T*+T1* 

2070  PRINT 

2075  REM  ....INITIALIZE  DL  <THE  OUTPUT  PORT  VARIABLE) 

2000  IF  LI  31  THEN  DL*0 
2090  IF  1.1=2  THEN  PL=32 
2100  RETURN 
OK 
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IRBS4 


IRBS  ENCODER  TEMPERATURE  TEST 


5  REM 

6  REM 

10  REM  THIS  ROUTINE  TAKES  10000  SAMPLES  OF  THE  IRBS  ENCODER 
20  REM  ANALOG  INPUTS  FOR  THE  MAINFRAME  DATA. 

25  REM 

26  REM  THIS  ROUTINE  CALLS  ZIPMC  TO  OBTAIN  DATA  FROM  THE 

27  REM  DECOM.  IT  USES  BOTH  THE  MAINFRAME  AND  SUBFRAME 

28  REM  ROUTINES  OF  ZIPMC.  THE  'DATA'  STATEMENTS  DEFINE 

29  REM  THE  SELECTED  SUBCOM  WORDS. 

30  PRINT  t  PRINT 
35  DT*="7/10/B0" 

37  PRINT  TAB < 24); "IRBS  TEMPERATURE  CHECKS  ";DT* 

38  PRINT  t  PRINT 

45  0L=0 

46  PRINT 

48  Tl*-"  SAMPLES” 

50  INPUT  "TEMPERATURE" I  TP* 

51  INPUT  "INPUT  VOLTAGE"; VI 

52  ST =5  :  ED-32 

53  PRINT 

55  T*="WORD»  BINARY  VALUE  CALC  VOLTAGE  ERROR 

56  PRINT  T*+T1* 

57  PRINT 

58  FOR  A=ST  TO  ED 
60  POKE  8256.0 

70  POKE  8257.112 

72  POKE  2048. DL 

73  DL=DL+1 

80  HX=INT(A/10) 

90  WA=A-<HX*10> 

100  HX=HX#16+WA 

110  POKE  28712. HX 

111  GOSUB  119 

112  GOTO  350 

119  J=0 

120  X1=USR< J) 

130  M-32704 

140  SM-PEEKIM+2 > 

153  SP*PEEK(M+3) 

155  IF  SP+SM=0  THEN  RETURN 
160  FL=0 
170  8*-"" 

190  DA-PEEK (M) 

195  X-120 

200  IF  X < -DA  THEN  230 
210  B*=B*+"0" 

220  GOTO  240 
230  B*-B*+"l" 

235  DA-DA- X 
240  X-X/2 

250  IF  X  > . 5  THEN  GOTO  200 
260  DA-PEEK (M+l) 

270  FL-FL+1 
275  B*-B*>"  " 

280  IF  FL-1  THEN  GOTO  195 
290  Dl-PEEK(M) 

300  D2-PEEK<M+1 ) 

310  V- (Dl+D2/256)/51. 2 
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311  VO*V 

312  SM*  <  SP*256 ) +SM 

313  V*INT< < VO) *100000)/ 100000 

315  VD=V-VI 

316  VD* I NT ( VD* 100000 ) / 100000 

320  PRINT  TAB<0) #  A{  TAB(  7 )  »  B* I  TAB <  29 )  I  V»  TAB ( 45)  J  VD#  TAB ( 61 ) ;  SM 

330  M*M+4 

340  GOTO  140 

350  PRINT 

360  NEXT  A 

370  IF  ST* 35  THEN  GOTO  380 

371  ST=35  s  ED=37 

372  GOTO  58 
380  PRINT 
400  PRINT 

402  PRINT  "***♦*  SUBCOM  DATA  #*#**" 

403  PRINT 

404  DIM  N(20) 

405  WD=33 

432  OR  1*1  TO  20 

433  READ  N(I) 

434  NEXT  I 

435  PRINT  "WORD  *  "IWD 

436  PRINT  "TEMPERATURE  "I TP* 

437  PRINT  "INPUT  VOLTAGE  “5 VI 

440  Rl*= "  SAMPLES" 

450  R**"FRM«  BINARY  VALUE  CALC  VOLTAGE  ERROR 

460  PRINTj PRINT  R*+R1* 

478  POKE  8256# O 
480  POKE  8257# 113 
490  HX*INT(WD/10) 

500  WA=WQ- <HX*10) 

510  HX*HX*16+WA 

518  F=1 

519  MX=10 

520  POKE  29007. HX 

525  IF  WD=33  THEN  GOTO  530 

526  F=ll 

527  MX*17 

530  FOR  K*F  TO  MX 
532  FR=N(K) 

535  PRINT 

540  HX=FR 

570  POKE  29003. HX 

575  A*FR 

580  GOSUB  119 

590  NEXT  K 

595  PRINT 

596  PRINT 

599  IF  WD-34  THEN  END 

600  DL*0 

609  WD*34 

610  GOTO  435 

700  DATA  2# 9# 18. 26# 34# 42# 49# 58# 66# 74 
710  DATA  5# 13# 21 #29# 37. 45# 53# 58# 66# 74 
OK 
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LIST 


20  REMs  F I Rl. . .ROUTINE  TO  CHECK  OUT  THE  FIRSFE  ENCODER.  USED  IN 

21  REMs  CONJUNCTION  WITH  ZIPMC.  THIS  ROUTINE  PRINTS  OUT  THE 

22  REMs  CALCULATED  VOLTAGE  VALUES#  BINARY  VALUE  OF  THE  WORD 

23  REMs  BEING  SAMPLED.  THE  DIFFERENCE  BETWEEN  THE  INPUT 

24  REMs  AND  CALCULATED  VOLTAGES#  AND  THE  NUMBER  OF  SAMPLES 

25  REMs  AT  THE  BINARY  VALUE.  ONLY  6  DIFFERENT  BINARY 

26  REMs  VALUES  ARE  STORED  AND  PRINTED  FOR  EACH  WORD  SAMPLED 

27  REMs  THEN  THE  PROGRAM  ENDS  (DOESN'T  PROCEED  TO  NEXT  WORD). 

28  REMs 

29  REMs  THE  DECOM  MUST  BE  IN  ALL  WORDS  POSITION  AND  THE 

30  REMs  INTERFACE  BOX  SET  FOR  12  BITS/WORD. 

31  REMs 

32  REMs  VARIABLESs 

33  REMs  DL  -  ADDRESS  COUNTER  TO  MUX  BOARD 

44  GOSUB  1000  s  REM  PRINT  HEADING 

45  DL=0 

47  ED=49 

48  Tl*=“  SAMPLES" 

49  INPUT  “  LINK  "}LI 

50  INPUT  "  TEMPERATURE  “;TP* 

51  INPUT  "  INPUT  VOLTAGE  “.*VI 

52  IF  LI  =>1  THEN  ST=3 

53  PRINT  s  PRINT 

54  IF  LI =2  THEN  ST*8 

55  T*="WORD«  BINARY  VALUE  CALC  VOLTAGE  ERROR 

56  PRINT  TS*+T*+Tlt 

57  PRINT 

58  FOR  A=ST  TO  ED 

59  IF  A=3  THEN  OL-45 

60  POKE  0256#  0 
70  POKE  8257.112 

72  POKE  2048 # DL 

73  IF  A=3  THEN  DL=-1 
75  DL=DL+1 

80  HX= INT ( A/10 ) 

90  WA--A-  <HX*10) 

100  HX=HX*16+WA 

110  POKE  28712# HX 

111  GOSUB  119 

112  GOTO  350 

119  J=0 

120  X l«USR ( J ) 

130  M=32704 

140  SM=PEEK(M+2) 

153  SP*PEEK(M+3> 

155  IF  SP>SM=0  THEN  RETURN 
160  FL*0 
170  B*=*"" 

190  DA=PEEK(M) 

195  X=128 

200  IF  X  <  *DA  THEN  230 
210  B*=D*+,0" 

220  GOTO  240 
230  B*»B*+"1" 

235  DA-DA- X 
240  X=X/2 

250  IF  X  > • 5  THEN  GOTO  200 
260  DA-PEEK <M+1) 
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270  FL=FL+1 
275  B*=B$+"  " 

280  IF  FL=1  THEN  GOTO  195 
290  Dl«PEEK(M) 

300  D2=PEEK<M+1> 

310  V=  <  D1+D2/256) /12t  8 

311  VO=V 

312  SM=(SP*256)+SM 

313  V=INT< < VO- 10 >*100000 ) /100000 

315  VB=V-VI 

316  VD* I NT  <  VD* 100000 ) / 100000 

320  PRINT  TAB  <  6 ) ; A ; TAB ( 12 ) 5  B* i TAB <  34 ) » V } TAB ( 50 ) i VD ; TAB ( 66 ) ; SM 
330  M=M+4 
340  GOTO  140 
350  PRINT 


355 

360 


IF  A=3  THEN  A=4 
NEXT  A 


370  POKE  2048 » 00 

440  IF  LI =2  THEN  END 
450  PRINT 

550  INPUT  "  IS  LINK  2  READY  (Y=YES>")Y* 

560  IF  Y*="Y“  THEN  GOTO  590 
570  END 

590  IF  LI=1  THEN  LI =2 

595  PRINT  i  PRINT 

598  PRINT  "  LINK  ?";  LI 

600  PRINT  "  TEMPERATURE  TP* 

605  PRINT  M  INPUT  VOLTAGE  ?";VI 

608  DL=0 

610  GOTO  52 
1000  DT*= "4/10/81 " 

1010  TS*=" 

1020  PRINT  t  PRINT  t  PRINT 

1030  PRINT  TAB (20);  "FI RSSE  ENCODER  TEMPERATURE  TEST  *‘;DT* 
1040  PRINT  s  PRINT  t  PRINT 

1050  RETURN 
OK 
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15  REM 

16  REM 

20  REM 

21  REM 

22  REM 

23  REM 

24  REM 

25  REM 

26  REM 

27  REM 

28  PRINT 

29  DT*=" 7/8/81” 

30  PRINT  TAB ( 18 )} "SPREAD  F  ENCODER  TEMPERATURE  CHECKS  “» DT*:  PRINT  :  PR If 
40  PRINT 

42  DL=B 

43  REM . INITIALIZE  ARRAY  N  FOR  SUBFRAME  DATA . 

45  DIM  N( 16) 

47  FOR  1-0  TO  15 

48  READ  N( I ) 

50  NEXT  I 

55  GOSUB  2000  s  REM . GET  DATA  FROM  OPERATOR . 

56  ST=3  j  ED-7  s  REM . SET  STARTING  ENDING  MF  WORD  « 

58  REM  . INITIALIZE  STARTING  ADDR  FOR  SPDMC . 

59  REM  THIS  WILL  READ  MAINFRAME  DATA 

60  POKE  8256*0 
65  POKE  8257*112 

70  REM  .....BEGIN  LOOP  FOR  MAINFRAME  DATA . 

71  FOR  A=ST  TO  ED 

72  POKE  2048. DL 

73  DL=0L+1 

80  HX= INT( A/10) 

90  WA=A-(HX*10) 

100  HX-HX*16+WA 

110  POKE  287 12*  HX 

111  GOSUB  119 

112  PRINT  t  NEXT  A 
115  GOTO  380 


117  REM  . SUBROUTINE  TO  CALL  MACHINE  CODE  PROGRAM 

118  REM  AND  PRINT  RESULTS.  (STATEMENTS  119-340) 

119  J=0 


120  X1-USR( J)  i  REM  ....CALL  MACHINE  CODE  PROGRAM.... 

130  M=32704 

140  SM*PEEK(M+2) 

153  SP=PEEK(M+3) 

155  IF  SP+SM-0  THEN  RETURN 
160  FL=0 
170  B«* 

190  DA-PEEK(M) 

195  X-128 

200  IF  X <  =DA  THEN  230 
210  B*«B*+"0" 

220  GOTO  240 
230  B*-B*+"l" 

235  DA-DA-X 
240  X-X/2 

250  IF  X > . 5  THEN  GOTO  200 
260  DA-PEEK (M+l) 

290  Dl-PEEK(M) 


SPRD4 . SPREAD  F  ENCODER  TEMPERATURE  TEST 

THIS  PROGRAM  TAKES  1000  SAMPLES  OF  EACH  MAINFRAME  WORD 
AND  100  SAMPLES  OF  EACH  SUDCQM  WORD.  WORDS  3  THRU  7 
ARE  SAMPLED  FIRST  THEN  THE  SUBFRAME  WORDS. 

THIS  ROUTINE  CALLS  THE  MACHINE  CODE  PROGRAM  "SPDMC" 

TO  OBTAIN  MAINFRAME  AND  SUBFRAME  DATA. 

THIS  PROGRAM  DOES  NOT  PRINT  THE  PARITY  BIT  (BIT  9). 
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300  D2*PEEK<M+1 ) 

310  V® ( D1+D2/256 )  /51 . 2 

311  V0=V 

312  SM=<SP*256)+SM 

313  V®INT< (VO >*100000 )/ 100000 

315  VD=V-VI 

316  VD® I NT  <  VD* 100000 ) / 1 00000 

320  PRINT  TS$} A.  TAB< 16) f B$! TAB( 34) »  V! TAB ( 50) !  VD)  TAB ( 66) > SM 
330  M=M+4 
340  GOTO  140 
345  REM 

350  REM  . ROUTINE  TO  OBTAIN  AND  PRINT  SUBUOM  DATA,... 

355  REM 
380  PRINT 
400  PRINT 

402  PRINT  TS*>  ”*#**********  SUBFRAME  DATA  ************" 

403  PRINT 
405  WD=2 

435  PRINT  TS*!"WORD  *  ”»WD 

436  PRINT  TS*J "TEMPERATURE  "»TP* 

437  PRINT  TS*+" INPUT  VOLTAGE  "}VI 

450  R*® "FRM#  BINARY  VALUE  CALC  VOLTAGE  ERROR 

460  PRINT  s  PRINT  TS*+R*+T1* 

478  POKE  8256.0 
480  POKE  8257.113 
490  HX=INT(WD/10) 

500  WA® WD- ( HX*10 ) 

510  HX=HX#16+WA 
520  POKE  29000. HX 
525  FOR  FR-O  TO  1 5 
530  DL=N(FR) 

535  PRINT 

545  POKE  2048. DL 

570  POKE  28996.FR 

575  A=FR 

580  GOSUB  119 


590  NEXT  FR 
600  DL=8 
610  END 
900  REM 

910  REM  . DATA  TO  CONTROL  MUX  BREADBOARD 

920  REM  TO  OBTAIN  SUBFRAME  DATA.... 

930  REM 

1000  DATA  13.14.15.16. 13. 17. 18. 19. 13. 14. 15, 16. 13. 20. 21. 22 
1890  REM 

1900  REM  . SUBROUTINE  TO  OBTAIN  TEMPERATURE  AND 

1910  REM  INPUT  VOLTAGE  FROM  OPERATOR  AND  TO 

1920  REM  PRINT  DATA  HEADING. 

1930  REM 

2000  Tlf •"  SAMPLES" 

2005  PRINT 

2010  INPUT  M  TEMPERATURE "I TPt 

2020  INPUT  "  INPUT  VOLTAGE"! VI 

2030  TS*»” 

2040  T*>"WORD»  BINARY  VALUE  CALC  VOLTAGE  ERROR 

2050  PRINT 


2060  PRINT  TS5+T5+T15 
2070  PRINT 
2080  RETURN 
OK 
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10 

0000 

ZIPA. 

.FOR  MAIN 

FRAME  DATA 

20 

0000 

30 

0000 

6/30/80 

40 

0000 

50 

0000 

Z I  PMC 

IS  THE  MACHINE 

CODE  FORM  OF  THIS  PROGRAM. 

60 

0000 

. 

70 

0000 

1 

80 

0000 

>  SUBROUTINE 

TO  BE  USED  IN  CONJUNCTION  WITH  BASIC 

90 

0000 

TO  LOOK  AT 

DATA  FROM 

THE  DECOM. • • • USE  WITH  ZIPB. 

100 

0000 

110 

0000 

THIS 

ROUTINE  SAMPLES 

A  WORD  10*000  TIMES  AND 

120 

0000 

COUNTS  THE 

«  OF  WORDS  THAT  ARE  A  LIKE.  THERE 

130 

0000 

ARE  ONLY  fl 

DIFFERENT 

BIT  PATTERNS  RETAINED. 

140 

0000 

150 

7000 

*=*7000 

160 

7000 

TABLE  = 

*7  FLO 

1/0 

7000 

i 

180 

7000 

A240  ZIFA 

LDX 

#*40  » 

ZERO  THE  TABLE 

190 

7002 

A900 

I. DA 

#0 

200 

7004 

9DBF7F  LOOP A 

STA 

*7FBF» X 

210 

7007 

CA 

DEX 

220 

7008 

BOFA 

BNE 

l.OOPA 

230 

7  00 A 

AOOO 

LDY 

#0 

240 

700C 

8CB07F 

STY 

*7F  BO 

TOTAL  SAMPLES=0 

250 

70  OF 

A927 

LDA 

#*27  i 

SET  HI  BYTE  OF  «  OF  SAMPLES 

260 

7011 

8DB37F 

STA 

*7FB3 

270 

7014 

A937 

LOA 

#*37  i 

SET  LOW  BYTE  OF  #  OF  SAMPLES 

280 

7016 

8DB27F 

STA 

*7  FD2 

290 

7019 

ADB27F  TSAM 

LDA 

*7FB2  i 

GET  #  OF  SAMPLES 

300 

701C 

CDB07F 

CMP 

*7FB0 

310 

701F 

F066 

BEQ 

CKSAM 

320 

7021 

C020 

NOISE 

CPY 

«*20  t 

IF=20  THEN  "ITS  REAL  NOISY!! 

330 

7023 

F067 

BEQ 

END 

340 

7025 

A200  TABPT 

LDX 

#*00  f 

SET  TABLE  P0INTER=0 

350 

7027 

A900 

LDA 

#*oo  ; 

GET  WORD  #  FROM  BASIC 

360 

7029 

2C0304  WDCl.K 

BIT 

*403  ; 

IS  WORDD  CLOCK  HI? 

370 

702C 

10FB 

BPL 

WDCLK 

380 

702E 

CD0004  LOOF'B 

CMP 

*400  i 

GET  WORD  ADDRESS 

390 

7031 

D0F6 

ENE 

WDCLK 

400 

7033 

EEB07F 

INC 

*7FB0  ; 

INC  THE  TOTAL  SAMPLES 

410 

7036 

COOO 

CPY 

#00  r 

IS  THIS  FIRST  SAMPLE 

420 

7038 

D01E 

BNE 

NEWDAT 

430 

703A 

ADO 104  GETHI 

LDA 

*401  f 

GET  HI  DATA  (MSB'S) 

440 

703D 

9DC07F 

STA 

TABLE*  X  f 

PUT  INTO  TABLE 

450 

7040 

E  a 

INX 

460 

7041 

AD0204 

LDA 

*402  ; 

GET  LOW  DATA 

470 

7044 

9DC07F 

STA 

TABLE*  X 

480 

7047 

E8 

INX 

490 

7048 

FEC07F 

INC 

TABLE* X  t 

INC*  SAMPLES  FOR  THIS  DATA 

500 

704B 

D005 

BNE 

XPLUS  t 

IF  LO  CNT*0  THEN  INC  HI  CNT 

510 

704D 

E8 

INX 

520 

704E 

FEC07F 

INC 

TABLF*  X  t 

INC  HI  CNT 

530 

7051 

CA 

DEX 

540 

7052 

E8 

XPLUS 

INX 

550 

7053 

Ed 

INX 

560 

7054 

8A 

TXA 

t 

SET  Y*X 

570 

7055 

A8 

TAY 

580 

7056 

10C1 

BPL 

ISAM  t 

GO  CHECK  TOTAL  SAMPLES 
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590 

7058 

AD0104 

NEWDAT 

I. DA 

*401 

* 

F 

GET  HI  DATA 

600 

705B 

DDC07F 

CMP 

TABLE  » X 

• 

9 

=  TO  TABLE  VALUE? 

610 

705E 

F00E 

BKQ 

TESTLO 

620 

7060 

E8 

SETX3 

INX 

1 

X*X+4 

630 

7061 

E8 

SETX2 

INX 

640 

7062 

E8 

INX 

650 

7063 

E8 

INX 

660 

7064 

8EB17F 

STX 

♦  7FB1 

4 

V 

SAVE  X  TO  CMP 

670 

7067 

CCBJ.7F 

CPY 

*7FB1 

4 

F 

DOES  X=Y?? 

680 

7 06 A 

DOEC 

BNE 

NEWDAT 

4 

F 

GO  GET  NEXT  TABLE  VALUE 

690 

706C 

FOCC 

BEQ 

GETHI 

4 

F 

GO  PUT  INTO  TABLE 

700 

706E 

E8 

TESTLO 

INX 

710 

706F 

AD0204 

LDA 

*402 

4 

F 

GET  LOW  DATA 

720 

7072 

DDC07F 

CMP 

TABLE. X 

4 

F 

=  TO  TABLE  VALUE? 

730 

7075 

DOEA 

BNE 

SETX2 

740 

7077 

E8 

INX 

750 

7078 

FEC07F 

INC 

TABLE. X 

4 

F 

INC  THE  SAMPLE  CNT 

760 

707B 

F003 

BEQ 

HI  SAM 

4 

F 

IF=0  THEN  INC  HI  SAMPLE 

770 

707D 

4C1970 

JMP 

TSAM 

780 

7080 

E8 

HI  SAM 

INX 

790 

7081 

FEC07F 

INC 

TABLE. X 

t 

INC  HI  SAM  CNT 

800 

7084 

4C1970 

JMP 

TSAM 

810 

7087 

CEB37F 

CKSAM 

DEC 

*7FB3 

4 

F 

DEC  HI  SAMPLE  CNT 

820 

708 A 

1001 

BPL 

SETLO 

830 

70QC 

60 

END 

RTS 

840 

708D 

A9FF 

SETL.0 

LDA 

**FF 

t 

SET  LO  CNT 

850 

708F 

80B27F 

STA 

*7  FB2 

860 

7092 

A900 

LDA 

«*00 

4 

F 

RESET  CNT 

870 

7094 

8DB07F 

STA 

*7FB0 

880 

7097 

4C1970 

JMP 

TSAM 
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2 1  PAS 


ROUTINE  TO  OBTAIN  SUBCOM  DATA 


10  0000 
20  0000 
30  0000 
40  0000 
50  0000 
60  0000 
70  0000 
80  0000 
90  0000 
100  0000 
110  0000 
120  7100 
130  7100 
140  7100 
150  7100  A240 
160  7102  A900 
170  7104  9DBK7F 
180  7107  CA 
190  7108  DOF A 
200  710A  AOOO 
210  7 IOC  8CB07F 
220  71 OF  A900 
230  7111  8DB37F 
240  7114  A964 
250  7116  8DB27F 
260  7119  ADB27F 
270  71 1C  CDB07F 
280  71 IF  D003 
290  7121  4CAE71 
300  7124  C020 
310  7126  D003 
320  7128  4CB371 
330  71 2B  A200 
340  712D  A901 
350  712F  2C0304 
360  7132  10FB 
370  7134  CD0004 
380  7137  D0F6 
390  7139  ADO 104 
400  7 13C  8DB47F 
410  713F  AD0204 
420  7142  6EB47F 
430  7145  6A 
440  7146  6EB47F 
450  7149  6A 
460  714A  C900 
470  7 14C  DODF 
480  714E  A900 
490  7150  2C0304 
500  7153  10FB 
510  7155  CD0004 
520  7158  DOF 6 
530  715A  EEB07F 
540  715D  COOO 
550  715F  D01E 
560  7161  AD0104 
570  7164  9DC07F 
580  7167  E8 


}  6/30/80 
» 

i  SUBROUTINE  TO  BE  USED  IN  CONJUNCTION  WITH  BASIC 
i  TO  LOOK  AT  DATA  FROM  THE  DECOM....USE  WITH  ZIPB. 

f 

t  THIS  ROUTINE  SAMPLES  A  SUBCOM  WORD  100  TIMES  AND 
i  COUNTS  THE  #  OF  WORDS  THAT  ARE  A  LIKE,  THERE 
i  ARE  ONLY  8  DIFFERENT  BIT  PATTERNS  RETAINED. 

f 

#=*7100 
TABLE  =$7FC0 

9 

ZIPA  LDX  #$40  i  ZERO  THE  TABLE 
LDA  #0 

LOOPA  STA  $7FBF »  X 
DEX 

BNE  LOOPA 
LDY  #0 

STY  $7FB0  t  TOTAL  SAMPLES=0 
LDA  #$00 
STA  $7FB3 

LDA  #$64  !  SET  SAMPLES *100 

STA  $7FB2 

TSAM  LDA  $7FB2  i  GET  #  OF  SAMPLES 
CMP  $7FB0 
BNE  NOISE 
JMP  CKSAM 

NOISE  CPY  #$20  t  IF* 20  THEN  "ITS  REAL  NOISY!! 
BNE  TA6PT 
JMP  END 

TABPT  LDX  «$00  i  SET  TABLE  P0INTER=0 
L00P1  LDA  #$01  }  LOOK  FOR  ID 

WDCLK  BIT  $403  ;  IS  WORDD  CLOCK  HI? 

BPL  WDCLK 

CMP  $400  t  GET  WORDD  ADDRESS 
BNE  WDCLK 

LDA  $401  f  GET  HI  DATA 

STA  $7FB4  i  SAVE 

LDA  $402  !  GET  LO  DATA 

ROR  $7FB4 

ROR  A  }  SHIFT  2  MSB  OF  10  INTO  A 

ROR  $7FB4 
ROR  A 

CMP  #0  ;  CMP  WITH  DESIRED  FRAME# 

BNE  L00P1  ;  GO  LOOK  I-OR  CORRECT  FRAME 

LDA  #0  »  GET  WORD#  FROM  BASIC 

WDCLK 1  BIT  $403  ;  IS  WORD  CLK  HI? 

BPL  WDCLK1 

CMP  $400  t  GET  WORD  ADDRESS 
BNE  WDCLK 1 

INC  $7FB0  t  INC  THE  TOTAL  SAMPLES 
CPY  #0  >  IS  THIS  FIRST  SAMPLE? 

BNE  NEWDAT 

GETHI  LDA  $401  I  GET  HI  DATA 

STA  TABLE tX  t  PUT  INTO  TABLE 
INX 
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590 

7168 

AD0204 

IDA 

*402 

GET  LOW  DATA 

600 

716B 

9DC07F 

STA 

TABLE.  X 

610 

716E 

E8 

INX 

620 

7 16F 

FEC07F 

INC 

TABLE*  X 

• 

9 

INC#  SAMPLES  FOR  THIS  DATA 

630 

7172 

D005 

DNE 

XPLUS 

i 

IF  LO  CNT-0  THEN  INC  HI 

CNT 

640 

7174 

E8 

INX 

650 

7175 

FEC07F 

INC 

TABLE*  X 

• 

f 

INC  HI  CNT 

660 

7178 

CA 

DEX 

670 

7179 

E8 

XPLUS 

INX 

660 

717A 

E8 

INX 

690 

717B 

8A 

TXA 

* 

9 

SET  Y  =  X 

700 

717C 

A8 

TAY 

710 

717D 

109A 

BPL 

TSAM 

• 

9 

GO  CHECK  TOTAL  SAMPLES 

720 

717F 

AD0104 

NEWDAT 

LDA 

*401 

« 

9 

GET  HI  DATA 

730 

7182 

DDC07F 

CMP 

TABLE*  X 

• 

r 

=  TO  TABLE  VALUE? 

740 

7185 

F00E 

BEQ 

TESTLO 

750 

7187 

E8 

SETX3 

INX 

* 

9 

X  =  X+4 

760 

7188 

E8 

SETX2 

INX 

770 

7189 

E6 

INX 

780 

718A 

E8 

INX 

- 

790 

7188 

8EB17F 

STX 

*7FB1 

9 

SAVE  X  TO  CMP 

800 

718E 

CCB17F 

CPY 

*7FBi 

• 

9 

DOES  X=Y?? 

810 

7191 

DOEC 

BNE 

NEWDAT 

« 

9 

GO  GET  NEXT  TABLE  VALUE 

820 

7193 

FOCC 

BEQ 

GETHI 

t 

GO  PUT  INTO  TABLE 

830 

7195 

E8 

TESTLO 

INX 

840 

7196 

AD0204 

LDA 

*402 

9 

GET  LOW  DATA 

850 

7199 

DDC07F 

CMP 

TABLE* X 

* 

9 

=  TO  TABLE  VALUE? 

860 

719C 

DOEA 

BNE 

SETX2 

870 

719E 

E8 

INX 

880 

719F 

FEC07F 

INC 

TABLE* X 

t 

INC  THE  SAMPLE  CNT 

890 

7 1A2 

F003 

BEQ 

HISAM 

9 

IF~0  THEN  INC  HI  SAMPLE 

CNT 

900 

71A4 

4C1971 

JMP 

TSAM 

910 

7 1A7 

E8 

HISAM 

INX 

920 

71  AS 

FEC07F 

INC 

TABLE. X 

• 

9 

INC  HI  SAM  CNT 

930 

71AB 

4C1971 

JMP 

TSAM 

940 

71AE 

CEB37F 

CKSAM 

DEC 

*7FB3 

* 

9 

DEC  HI  SAMPLE  CNT 

950 

71B1 

1001 

BPL 

SETLO 

960 

71B3 

60 

END 

RTS 

970 

71B4 

A9FF 

SETLO 

LDA 

»*FF 

• 

9 

SET  LO  CNT 

980 

71B6 

8DB27F 

STA 

*7FB2 

990 

71B9 

A900 

LDA 

#*oo 

f 

RESET  CNT 

1000 

7  IBB 

8DB07F 

STA 

*7F80 

1010 

71  BE 

4C1971 

JMP 

TSAM 
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10  0000 
20  0000 
30  0000 
40  0000 
50  0000 
60  0000 
70  0000 
80  0000 
90  0000 
100  0000 
110  0000 
120  7100 
130  7100 
140  7100 
150  7100  A240 
160  7102  A900 
170  7104  90BF7F 
180  7107  CA 
190  7108  DOFA 
200  710A  AOOO 
210  7  IOC  8CB07F 
220  71 OF  A900 
230  7111  8DB37F 
240  7114  A964 
250  7116  8DB27F 
260  7119  ABB27F 
270  71 1C  CDB07F 
280  71 IF  D003 
290  7121  4CA771 
300  7124  C020 
310  7126  D003 
320  7128  4CAC71 
330  7 12B  A200 
340  71 2D  A901 
350  712F  2C0304 
360  7132  10FB 
370  7134  CD 0004 
380  7137  D0F6 
390  7139  AD0104 
400  713C  8DB47F 
410  713F  6A 
420  7140  6A 
430  7141  6 A 
440  7142  6A 
450  7143  C900 
460  7145  D0E6 
470  7147  A900 
480  7149  2C0304 
490  7 14C  10FB 
500  7 14E  CD0004 
510  7151  D0F6 
520  7153  EEB07F 
530  7156  COOO 
540  7158  D01E 
550  715A  ADO 104 
560  715D  9DC07F 
570  7160  ES 
580  7161  AD0204 


i  SPRDA . SPREAD  F  ENCODER  SUBCOM  CHECKOUT 

i  ID  IS  IN  FIRST  4  BITS 

t  7/9/81 

f 

i  SUBROUTINE  TO  BE  USED  IN  CONJUNCTION  WITH  BASIC 

t  TO  LOOK  AT  DATA  FROM  DECOM. ...USE  WITH  SPRDF 

• 

f 

i  THIS  ROUTINE  SAMPLES  A  SUBCOM  WORD  100  TIMES  AND 
;  COUNTS  THE  *  OF  WORDS  THAT  ARE  A  LIKE.  THERE 

;  ARE  ONLY  8  DIFFERENT  BIT  PATTERNS  RETAINED. 

* 

f 

*=$7100 
TABLE  =$7FC0 

* 

f 

ZIPA  LDX  »$40  f  ZERO  THE  TABLE 
LDA  #0 

LOOPA  STA  $7FBF »  X 
DEX 

BNE  LOOPA 
LDY  #0 

STY  $7FB0  J  TOTAL  SAMF'LES=0 
LDA  *$00 
STA  $7FB3 

LDA  *$64  5  SET  SAMPLES® 100 

STA  $7FB2 

TSAM  LDA  $7FB2  ;  GET  *  OF  SAMPLES 

CMP  $7FB0 
BNE  NOISE 
JMP  CKSAM 

NOISE  CPY  «$20  f  I F  =  20  THEN  "ITS  REAL  NOISY!!" 

BNE  TABPT 
JMP  END 

TABPT  LDX  *$00  ;  SET  TABLE  POINTERS 

L00P1  LDA  *$01  ;  LOOK  FOR  ID 

WDCLK  BIT  $403  i  IS  WGRDB  CLOCK  HI? 

BPL  WDCLK 

CMP  $400  i  GET  WORDD  ADDRESS 
BNE  WDCLK 

LDA  $401  !  GET  HI  DATA 

STA  $ 7F  B4  ;  SAVE 

ROR  A  ;  SHIFT  ID  RIGHT  4  BITS 

ROR  A 
ROR  A 
ROR  A 

CMP  *0  i  CMP  WITH  DESIRED  FRAME* 

BNE  l.OOF'l  i  GO  LOOK  FOR  CORRECT  FRAME 
LDA  *0  i  GET  WORD*  FROM  BASIC 

WDCLK 1  BIT  $403  .  IS  WORD  CLK  HI? 

BPL  WDCLK 1 

CMP  $400  i  GET  WORD  ADDRESS 
BNE  WDCLK 1 

INC  $7FB0  ;  INC  THE  TOTAL  SAMPLES 
CPY  *0  l  IS  THIS  FIRST  SAMPLE? 

BNE  NEWDAT 

GETHI  LDA  $401  i  GET  HI  DATA 

STA  TABLE#  X  1  PUT  INTO  TABLE 
INX 

LDA  $402  i  GET  LOW  DATA 


36 


r 


590 

7164 

9DC07F 

STA 

TABLE. X 

600 

7167 

E8 

INX 

610 

7168 

FEC07F 

INC 

TABLE. X 

* 

9 

INC*  SAMPLES  FOR  THIS  DATA 

620 

716B 

D005 

BNE 

XPLUS 

• 

F 

IF  L.O  C'NT=0  THEN  INC  HI 

CNT 

630 

716D 

E8 

INX 

640 

7 16E 

FEC07F 

INC 

TABLE. X 

» 

INC  HI  CNT 

650 

7171 

CA 

DEX 

660 

7172 

E8 

XPLUS 

INX 

670 

7173 

ES 

INX 

680 

7174 

6A 

TXA 

r 

SET  Y=X 

690 

7175 

AS 

TAY 

700 

7176 

10A1 

BPL 

TSAM 

* 

* 

GO  CHECK  TOTAL  SAMPLES 

710 

7178 

AD0104 

NEWDAT 

LDA 

*401 

* 

9 

GET  HI  DATA 

720 

717B 

DDC07F 

CMP 

TABLE. X 

t 

*  TO  TABLE  VALUE ? 

730 

717E 

FOOE 

BLQ 

TESTLO 

740 

7180 

E8 

SETX3 

INX 

9 

X  =  X+4 

750 

7181 

E3 

SETX2 

INX 

760 

7182 

E8 

INX 

770 

7183 

E8 

INX 

780 

7184 

8EB17F 

STX 

*7  FBI 

9 

SAVE  X  TO  CMP 

790 

7187 

CCB17F 

CPY 

*7FB1 

9 

DOES  X=Y?? 

800 

718A 

DOEC 

BNE 

NEWDAT 

9 

GO  GET  NEXT  TABLE  VALUE 

810 

718C 

FOCC 

BEG) 

GETHI 

* 

9 

GO  PUT  INTO  TABLE 

820 

718E 

E8 

TESTLO 

INX 

830 

718F 

AD0204 

LDA 

*402 

* 

F 

GET  LOW  DATA 

840 

7192 

DDC07F 

CMP 

TABLE. X 

* 

f 

=  TO  TABLE  VALUE*? 

850 

7195 

DOE  A 

BNE 

SETX2 

860 

7197 

E8 

INX 

870 

7198 

FEC07F 

INC 

TABLE. X 

* 

9 

INC  THE  SAMPLE  CNT 

880 

719B 

F003 

BEG 

HI  SAM 

« 

9 

IF=0  THEN  INC  HI  SAMPLE 

CNT 

890 

7 19D 

4C1971 

JMP 

TSAM 

900 

71  AO 

E8 

HI  SAM 

INX 

910 

7 1A1 

FEC07F 

INC 

TABLE. X 

} 

INC  HI  SAM  CNT 

920 

7 1A4 

4C1971 

JMP 

TSAM 

930 

7 1A7 

CEB3/F 

CKSAM 

DEC 

*7FB3 

t 

DEC  HI  SAMPLE  CNT 

940 

71AA 

1001 

BPL 

SETLO 

950 

71AC 

60 

END 

RTS 

960 

71  AD 

A9FF 

SETLO 

LDA 

«*FF 

M 

9 

SET  LO  CNT 

970 

71AF 

8DB27F 

STA 

*7FB2 

980 

71B2 

A900 

LDA 

**00 

• 

F 

RESET  CNT 

990 

71B4 

8DB07F 

STA 

*7FB0 

1000 

7 1B7 

4C1971 

JMP 

TSAM 
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